

use  "$data/clean/vignette.dta", clear

*** CDF plots ***
reshape long  prob_join_ prob_camp_, i(id) j(treat)


cdfplot prob_join_ , by(treat) xtitle("Probability of joining party") legend(pos(6) order(1 "Status quo" 2 "Improved voice") rows(1))
graph export "$output/vignette_cdf_joining.pdf", replace

cdfplot prob_camp_ , by(treat) xtitle("Probability of campaigning") legend(pos(6) order(1 "Status quo" 2 "Improved voice") rows(1))
graph export "$output/vignette_cdf_camp.pdf", replace

